﻿Public Partial Class frm_IngresoDatos
    Inherits System.Web.UI.Page
    Dim Mensaje1 As Boolean ' = False
    Dim Mensaje2 As Boolean

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Me.txtIDSeguro.Text = Request("IDSeguro")
            opEsCliente.Items.FindByValue("NO").Selected = True
            opEsCliente.UpdateAfterCallBack = True
            'opFormaPago_SelectedIndexChanged(Nothing, Nothing)
            ObtenerProducto()
            opFormaPago_SelectedIndexChanged(sender, e)


            ObtieneCiudad()
            ObtieneComuna()

            Beneficiarios()
            ObtieneDatosTMP()
            ObtieneCarga()
      
        End If
    End Sub
    Private Sub ObtieneCarga()
        'Dim exec As New BusinessCatastrofico.TMP_VentaSeguro
        Dim exec As New BusinessCatastrofico.Cargas
        Dim rp As New NetResponse.MsSqlServer
        exec._IDSeguro = txtIDSeguro.Text
        exec.Get_Carga(rp)

        If rp.TieneDatos Then

            txtRutCarga1.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_1")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_1")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_1")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_1"))
            txtRutCarga1.UpdateAfterCallBack = True
            txtNombreCarga1.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_1")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_1"))
            txtNombreCarga1.UpdateAfterCallBack = True
            txtApPCarga1.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_1")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_1"))
            txtApPCarga1.UpdateAfterCallBack = True
            txtApMCarga1.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_1")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_1"))
            txtApMCarga1.UpdateAfterCallBack = True
            txtFNCarga1.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_1") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_1"))
            txtFNCarga1.UpdateAfterCallBack = True
            LblCargaFecha1.Visible = False
            LblCargaFecha1.UpdateAfterCallBack = True
            cmbParentescoCarga1.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_1")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_1"))
            cmbParentescoCarga1.UpdateAfterCallBack = True

            txtRutCarga2.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_2")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_2")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_2")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_2"))
            txtRutCarga2.UpdateAfterCallBack = True
            txtNombreCarga2.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_2")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_2"))
            txtNombreCarga2.UpdateAfterCallBack = True
            txtApPCarga2.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_2")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_2"))
            txtApPCarga2.UpdateAfterCallBack = True
            txtApMCarga2.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_2")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_2"))
            txtApMCarga2.UpdateAfterCallBack = True
            txtFNCarga2.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_2") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_2"))
            txtFNCarga2.UpdateAfterCallBack = True
            LblCargaFecha2.Visible = False
            LblCargaFecha2.UpdateAfterCallBack = True
            cmbParentescoCarga2.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_2")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_2"))
            cmbParentescoCarga2.UpdateAfterCallBack = True


            txtRutCarga3.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_3")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_3")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_3")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_3"))
            txtRutCarga3.UpdateAfterCallBack = True
            txtNombreCarga3.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_3")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_3"))
            txtNombreCarga3.UpdateAfterCallBack = True
            txtApPCarga3.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_3")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_3"))
            txtApPCarga3.UpdateAfterCallBack = True
            txtApMCarga3.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_3")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_3"))
            txtApMCarga3.UpdateAfterCallBack = True
            txtFNCarga3.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_3") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_2"))
            txtFNCarga3.UpdateAfterCallBack = True
            LblCargaFecha3.Visible = False
            LblCargaFecha3.UpdateAfterCallBack = True
            cmbParentescoCarga3.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_3")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_3"))
            cmbParentescoCarga3.UpdateAfterCallBack = True


            txtRutCarga4.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_4")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_4")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_4")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_4"))
            txtRutCarga4.UpdateAfterCallBack = True
            txtNombreCarga4.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_4")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_4"))
            txtNombreCarga4.UpdateAfterCallBack = True
            txtApPCarga4.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_4")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_4"))
            txtApPCarga4.UpdateAfterCallBack = True
            txtApMCarga4.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_4")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_4"))
            txtApMCarga4.UpdateAfterCallBack = True
            txtFNCarga4.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_4") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_4"))
            txtFNCarga4.UpdateAfterCallBack = True
            LblCargaFecha4.Visible = False
            LblCargaFecha4.UpdateAfterCallBack = True
            cmbParentescoCarga4.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_4")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_4"))
            cmbParentescoCarga4.UpdateAfterCallBack = True


            txtRutCarga5.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_5")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_5")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_5")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_5"))
            txtRutCarga5.UpdateAfterCallBack = True
            txtNombreCarga5.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_5")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_5"))
            txtNombreCarga5.UpdateAfterCallBack = True
            txtApPCarga5.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_5")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_5"))
            txtApPCarga5.UpdateAfterCallBack = True
            txtApMCarga5.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_5")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_5"))
            txtApMCarga5.UpdateAfterCallBack = True
            txtFNCarga5.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_5") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_5"))
            txtFNCarga5.UpdateAfterCallBack = True
            LblCargaFecha5.Visible = False
            LblCargaFecha5.UpdateAfterCallBack = True
            cmbParentescoCarga5.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_5")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_5"))
            cmbParentescoCarga5.UpdateAfterCallBack = True


            txtRutCarga6.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_6")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_6")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_6")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_6"))
            txtRutCarga6.UpdateAfterCallBack = True
            txtNombreCarga6.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_6")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_6"))
            txtNombreCarga6.UpdateAfterCallBack = True
            txtApPCarga6.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_6")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_6"))
            txtApPCarga6.UpdateAfterCallBack = True
            txtApMCarga6.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_6")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_6"))
            txtApMCarga6.UpdateAfterCallBack = True
            txtFNCarga6.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_6") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_6"))
            txtFNCarga6.UpdateAfterCallBack = True
            LblCargaFecha6.Visible = False
            LblCargaFecha6.UpdateAfterCallBack = True
            cmbParentescoCarga6.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_6")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_6"))
            cmbParentescoCarga6.UpdateAfterCallBack = True


        End If
    End Sub
    Sub Beneficiarios()
        cmbParentescoCarga1.SelectedValue = "000"
        cmbParentescoCarga2.SelectedValue = "000"
        cmbParentescoCarga3.SelectedValue = "000"
        cmbParentescoCarga4.SelectedValue = "000"
        cmbParentescoCarga5.SelectedValue = "000"
        cmbParentescoCarga6.SelectedValue = "000"

        ViewState("Carga") = Request("Carga")
        If ViewState("Carga") = 0 Then
            Cargas.Visible = False
            Cargas.UpdateAfterCallBack = True
        ElseIf ViewState("Carga") = 1 Then
            txtRutCarga2.Visible = False
            txtRutCarga2.UpdateAfterCallBack = True
            txtNombreCarga2.Visible = False
            txtNombreCarga2.UpdateAfterCallBack = True
            txtApPCarga2.Visible = False
            txtApPCarga2.UpdateAfterCallBack = True
            txtApMCarga2.Visible = False
            txtApMCarga2.UpdateAfterCallBack = True
            txtFNCarga2.Visible = False
            txtFNCarga2.UpdateAfterCallBack = True
            LblCargaFecha2.Visible = False
            LblCargaFecha2.UpdateAfterCallBack = True
            cmbParentescoCarga2.Visible = False
            cmbParentescoCarga2.UpdateAfterCallBack = True

            txtRutCarga3.Visible = False
            txtRutCarga3.UpdateAfterCallBack = True
            txtNombreCarga3.Visible = False
            txtNombreCarga3.UpdateAfterCallBack = True
            txtApPCarga3.Visible = False
            txtApPCarga3.UpdateAfterCallBack = True
            txtApMCarga3.Visible = False
            txtApMCarga3.UpdateAfterCallBack = True
            txtFNCarga3.Visible = False
            txtFNCarga3.UpdateAfterCallBack = True
            LblCargaFecha3.Visible = False
            LblCargaFecha3.UpdateAfterCallBack = True
            cmbParentescoCarga3.Visible = False
            cmbParentescoCarga3.UpdateAfterCallBack = True

            txtRutCarga4.Visible = False
            txtRutCarga4.UpdateAfterCallBack = True
            txtNombreCarga4.Visible = False
            txtNombreCarga4.UpdateAfterCallBack = True
            txtApPCarga4.Visible = False
            txtApPCarga4.UpdateAfterCallBack = True
            txtApMCarga4.Visible = False
            txtApMCarga4.UpdateAfterCallBack = True
            txtFNCarga4.Visible = False
            txtFNCarga4.UpdateAfterCallBack = True
            LblCargaFecha4.Visible = False
            LblCargaFecha4.UpdateAfterCallBack = True
            cmbParentescoCarga4.Visible = False
            cmbParentescoCarga4.UpdateAfterCallBack = True

            txtRutCarga5.Visible = False
            txtRutCarga5.UpdateAfterCallBack = True
            txtNombreCarga5.Visible = False
            txtNombreCarga5.UpdateAfterCallBack = True
            txtApPCarga5.Visible = False
            txtApPCarga5.UpdateAfterCallBack = True
            txtApMCarga5.Visible = False
            txtApMCarga5.UpdateAfterCallBack = True
            txtFNCarga5.Visible = False
            txtFNCarga5.UpdateAfterCallBack = True
            LblCargaFecha5.Visible = False
            LblCargaFecha5.UpdateAfterCallBack = True
            cmbParentescoCarga5.Visible = False
            cmbParentescoCarga5.UpdateAfterCallBack = True

            txtRutCarga6.Visible = False
            txtRutCarga6.UpdateAfterCallBack = True
            txtNombreCarga6.Visible = False
            txtNombreCarga6.UpdateAfterCallBack = True
            txtApPCarga6.Visible = False
            txtApPCarga6.UpdateAfterCallBack = True
            txtApMCarga6.Visible = False
            txtApMCarga6.UpdateAfterCallBack = True
            txtFNCarga6.Visible = False
            txtFNCarga6.UpdateAfterCallBack = True
            LblCargaFecha6.Visible = False
            LblCargaFecha6.UpdateAfterCallBack = True
            cmbParentescoCarga6.Visible = False
            cmbParentescoCarga6.UpdateAfterCallBack = True
        ElseIf ViewState("Carga") = 2 Then
            txtRutCarga3.Visible = False
            txtRutCarga3.UpdateAfterCallBack = True
            txtNombreCarga3.Visible = False
            txtNombreCarga3.UpdateAfterCallBack = True
            txtApPCarga3.Visible = False
            txtApPCarga3.UpdateAfterCallBack = True
            txtApMCarga3.Visible = False
            txtApMCarga3.UpdateAfterCallBack = True
            txtFNCarga3.Visible = False
            txtFNCarga3.UpdateAfterCallBack = True
            LblCargaFecha3.Visible = False
            LblCargaFecha3.UpdateAfterCallBack = True
            cmbParentescoCarga3.Visible = False
            cmbParentescoCarga3.UpdateAfterCallBack = True

            txtRutCarga4.Visible = False
            txtRutCarga4.UpdateAfterCallBack = True
            txtNombreCarga4.Visible = False
            txtNombreCarga4.UpdateAfterCallBack = True
            txtApPCarga4.Visible = False
            txtApPCarga4.UpdateAfterCallBack = True
            txtApMCarga4.Visible = False
            txtApMCarga4.UpdateAfterCallBack = True
            txtFNCarga4.Visible = False
            txtFNCarga4.UpdateAfterCallBack = True
            LblCargaFecha4.Visible = False
            LblCargaFecha4.UpdateAfterCallBack = True
            cmbParentescoCarga4.Visible = False
            cmbParentescoCarga4.UpdateAfterCallBack = True

            txtRutCarga5.Visible = False
            txtRutCarga5.UpdateAfterCallBack = True
            txtNombreCarga5.Visible = False
            txtNombreCarga5.UpdateAfterCallBack = True
            txtApPCarga5.Visible = False
            txtApPCarga5.UpdateAfterCallBack = True
            txtApMCarga5.Visible = False
            txtApMCarga5.UpdateAfterCallBack = True
            txtFNCarga5.Visible = False
            txtFNCarga5.UpdateAfterCallBack = True
            LblCargaFecha5.Visible = False
            LblCargaFecha5.UpdateAfterCallBack = True
            cmbParentescoCarga5.Visible = False
            cmbParentescoCarga5.UpdateAfterCallBack = True

            txtRutCarga6.Visible = False
            txtRutCarga6.UpdateAfterCallBack = True
            txtNombreCarga6.Visible = False
            txtNombreCarga6.UpdateAfterCallBack = True
            txtApPCarga6.Visible = False
            txtApPCarga6.UpdateAfterCallBack = True
            txtApMCarga6.Visible = False
            txtApMCarga6.UpdateAfterCallBack = True
            txtFNCarga6.Visible = False
            txtFNCarga6.UpdateAfterCallBack = True
            LblCargaFecha6.Visible = False
            LblCargaFecha6.UpdateAfterCallBack = True
            cmbParentescoCarga6.Visible = False
            cmbParentescoCarga6.UpdateAfterCallBack = True
        End If
    End Sub

    Protected Sub txtRutEjecutivo_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtRutEjecutivo.TextChanged
        Dim fRut As New FunGenerales
        Dim lRut As Integer
        Dim szDigito As String
        szDigito = ""

        If Not fRut.ValidarRut(txtRutEjecutivo.Text, lRut, szDigito) Then
            txtRutEjecutivo.Text = ""
            txtRutEjecutivo.Setfocus()
            txtRutEjecutivo.AutoUpdateAfterCallBack = True
            Exit Sub
        End If
    End Sub
    Private Sub ObtieneDatosTMP()
        Dim exec As New BusinessCatastrofico.TMP_VentaSeguro
        Dim rp As New NetResponse.MsSqlServer
        exec._IDSeguro = txtIDSeguro.Text
        exec.Get_TMP_VentaSeguro(rp)
        If rp.TieneDatos Then

            txtRutEjecutivo.Text = rp.Ds.Tables(0).Rows(0).Item("Rut_vendedor") & "" & rp.Ds.Tables(0).Rows(0).Item("DVRut_vendedor")
            txtNombreEjecutivo.Text = rp.Ds.Tables(0).Rows(0).Item("Nombre_Vendedor")
            txtCUI.Text = rp.Ds.Tables(0).Rows(0).Item("CUI")


            txtRutContratante.Text = rp.Ds.Tables(0).Rows(0).Item("Rut_Contratante") & "" & rp.Ds.Tables(0).Rows(0).Item("DVRut_Contratante")
            txtRutContratante.AutoUpdateAfterCallBack = True
            txtNombreContratante.Text = rp.Ds.Tables(0).Rows(0).Item("Nombre_Contratante")
            txtNombreContratante.AutoUpdateAfterCallBack = True

            Call opFormaPago_SelectedIndexChanged(Nothing, Nothing)

            If rp.Ds.Tables(0).Rows(0).Item("Rut_Asegurado") <> "" Then
                txtRutAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("Rut_Asegurado") & "-" & rp.Ds.Tables(0).Rows(0).Item("DVRut_Asegurador")
            Else
                txtRutAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("Rut_Asegurado") & rp.Ds.Tables(0).Rows(0).Item("DVRut_Asegurador")
            End If

            txtNombresAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("Nombre_Asegurado")
            txtApellidoPaternoAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("ApellidoPaterno_Asegurado")
            txtApellidoMaternoAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("ApellidoMaterno_Asegurado")
            opSexo.SelectedValue = rp.Ds.Tables(0).Rows(0).Item("Sexo")
            txtFechaNacimientoAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("FechaNacimiento_Asegurado")


            txtCalleDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("Calle")
            txtNroDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("NroCalle")
            txtDeptoDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("NroDepartamento")
            txtVillaDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("VillaPoblacion")
            cbCiudadDespacho.SelectedValue = rp.Ds.Tables(0).Rows(0).Item("CodCiudad")
            Call cbCiudadDespacho_SelectedIndexChanged(Nothing, Nothing)
            cbComunaDespacho.SelectedValue = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("CodComuna")), "", rp.Ds.Tables(0).Rows(0).Item("CodComuna"))
            txtTelefonoDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("Telefono")
            txtCelularDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("Celular")
            txtMailDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("Correo")

            txtFechaPrimerCargo.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("FechaPrimerCargo")), "", rp.Ds.Tables(0).Rows(0).Item("FechaPrimerCargo"))

            opFormaPago.SelectedValue = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("MedioPagoBCH")), "", rp.Ds.Tables(0).Rows(0).Item("MedioPagoBCH"))
            opFormaPago_SelectedIndexChanged(Nothing, Nothing)

            If IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("MedioPagoBCH")), "", rp.Ds.Tables(0).Rows(0).Item("MedioPagoBCH")) = "BCH" Then
                If IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NombreProducto")), "", rp.Ds.Tables(0).Rows(0).Item("NombreProducto")) <> "" Then
                    cbMDP.Items.FindByText(rp.Ds.Tables(0).Rows(0).Item("NombreProducto")).Selected = True
                    cbMDP.UpdateAfterCallBack = True
                End If
                cbMDP_SelectedIndexChanged(Nothing, Nothing)
                txtNroProducto.Text = ""
            Else
                ' cbMDP_SelectedIndexChanged(Nothing, Nothing)
                If IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("CodMedioPago")), "", rp.Ds.Tables(0).Rows(0).Item("CodMedioPago")) <> "" Then
                    cbMDP.Items.FindByValue(IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("CodMedioPago")), "", rp.Ds.Tables(0).Rows(0).Item("CodMedioPago"))).Selected = True
                    cbMDP.UpdateAfterCallBack = True
                End If

                If IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("TipoTarjeta")), "", rp.Ds.Tables(0).Rows(0).Item("TipoTarjeta")) <> "" Then
                    cbTipoTarjeta.Items.FindByValue(IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("TipoTarjeta")), "", rp.Ds.Tables(0).Rows(0).Item("TipoTarjeta"))).Selected = True
                    cbTipoTarjeta.Visible = True
                    'cbTipoTarjeta.UpdateAfterCallBack = True
                End If

                cbBanco.SelectedValue = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("CodBanco")), "", rp.Ds.Tables(0).Rows(0).Item("CodBanco")) 'rp.Ds.Tables(0).Rows(0).Item("NombreBanco")
                If IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")), "", rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")) <> "" Then
                    txtNroProducto.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")), "", rp.Ds.Tables(0).Rows(0).Item("NroMedioPago"))
                    txtNroProducto.Visible = True
                End If
                End If

                'cbBanco.SelectedValue = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NombreBanco")), "", rp.Ds.Tables(0).Rows(0).Item("NombreBanco")) 'rp.Ds.Tables(0).Rows(0).Item("NombreBanco")
                'cbMDP.SelectedValue = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NombreProducto")), "", rp.Ds.Tables(0).Rows(0).Item("NombreProducto")) 'rp.Ds.Tables(0).Rows(0).Item("NombreProducto")
                'cbCuentas.SelectedValue = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")), "", rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")) 'rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")
                ''OJO    cbTipoTarjeta.Text = rp.Ds.Tables(0).Rows(0).Item("Correo")
                'txtNroProducto.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")), "", rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")) 'rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")



                txtTotalAnual.Text = rp.Ds.Tables(0).Rows(0).Item("ValorCuota")
                txtTotalAnual.AutoUpdateAfterCallBack = True
                txtVigenciaDesde.Text = rp.Ds.Tables(0).Rows(0).Item("FechaDesde")
                txtVigenciaDesde.AutoUpdateAfterCallBack = True
                txtVigenciaHasta.Text = rp.Ds.Tables(0).Rows(0).Item("FechaHasta")
                txtVigenciaHasta.AutoUpdateAfterCallBack = True
                txtFechaNacimientoAsegurado.ReadOnly = True
                txtFechaNacimientoAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("FechaNacimiento_Asegurado")
                txtFechaNacimientoAsegurado.AutoUpdateAfterCallBack = True
                txtNroCuotas.Text = rp.Ds.Tables(0).Rows(0).Item("CantidadCuota")
                txtNroCuotas.AutoUpdateAfterCallBack = True
                txtValorPrimaAnual.Text = rp.Ds.Tables(0).Rows(0).Item("Total")
                txtValorPrimaAnual.AutoUpdateAfterCallBack = True
                txtPlan.Text = rp.Ds.Tables(0).Rows(0).Item("Plan1")
                txtPlan.AutoUpdateAfterCallBack = True


                txtRutEjecutivo.AutoUpdateAfterCallBack = True
                txtNombreEjecutivo.AutoUpdateAfterCallBack = True
                txtCUI.AutoUpdateAfterCallBack = True

                txtRutAsegurado.AutoUpdateAfterCallBack = True
                txtNombresAsegurado.AutoUpdateAfterCallBack = True
                txtApellidoPaternoAsegurado.AutoUpdateAfterCallBack = True
                txtApellidoMaternoAsegurado.AutoUpdateAfterCallBack = True
                opSexo.AutoUpdateAfterCallBack = True
                txtFechaNacimientoAsegurado.AutoUpdateAfterCallBack = True

                txtCalleDespacho.AutoUpdateAfterCallBack = True
                txtNroDespacho.AutoUpdateAfterCallBack = True
                txtDeptoDespacho.AutoUpdateAfterCallBack = True
                txtVillaDespacho.AutoUpdateAfterCallBack = True
                cbCiudadDespacho.AutoUpdateAfterCallBack = True
                cbComunaDespacho.AutoUpdateAfterCallBack = True
                txtMailDespacho.AutoUpdateAfterCallBack = True

                txtFechaPrimerCargo.AutoUpdateAfterCallBack = True

                cbBanco.AutoUpdateAfterCallBack = True
                cbMDP.AutoUpdateAfterCallBack = True
                cbCuentas.AutoUpdateAfterCallBack = True
                cbTipoTarjeta.AutoUpdateAfterCallBack = True
                txtNroProducto.AutoUpdateAfterCallBack = True




        End If
        If rp.Errores Then
        End If
        rp.Dispose()
        exec.Dispose()
    End Sub
    Private Sub ObtieneCiudad()
        Dim exec As New BusinessCatastrofico.CiudadComuna
        Dim rp As New NetResponse.MsSqlServer

        exec.Get_Ciudad(rp)
        cbCiudadDespacho.DataSource = Nothing
        If rp.TieneDatos Then
            cbCiudadDespacho.DataSource = rp.Ds.Tables(0)
            cbCiudadDespacho.DataValueField = "CodCiudad"
            cbCiudadDespacho.DataTextField = "Nombre"
            cbCiudadDespacho.DataBind()
        End If
        If rp.Errores Then
        End If

        cbCiudadDespacho.AutoUpdateAfterCallBack = True

        rp.Dispose()
        exec.Dispose()
    End Sub
    Private Sub ObtieneBanco()

        Dim exec As New BusinessCatastrofico.Venta
        Dim rp As New NetResponse.MsSqlServer

        exec.Get_Bancos(rp)
        cbBanco.DataSource = Nothing
        If rp.TieneDatos Then
            cbBanco.DataSource = rp.Ds.Tables(0)
            cbBanco.DataValueField = "cod_banco"
            cbBanco.DataTextField = "banco"
            cbBanco.DataBind()
        End If
        If rp.Errores Then
        End If

        cbBanco.AutoUpdateAfterCallBack = True

        rp.Dispose()
        exec.Dispose()

    End Sub

    Private Sub ObtieneTipoProducto()
        'Dim exec As New BusinessCatastrofico.Venta
        'Dim rp As New NetResponse.MsSqlServer

        'exec.Get_Bancos(rp)
        'cbBanco.DataSource = Nothing
        'If rp.TieneDatos Then
        '    cbBanco.DataSource = rp.Ds.Tables(0)
        '    cbBanco.DataValueField = "cod_banco"
        '    cbBanco.DataTextField = "banco"
        '    cbBanco.DataBind()
        'End If
        'If rp.Errores Then
        '    'End If

        '    'cbBanco.AutoUpdateAfterCallBack = True

        '    'rp.Dispose()
        '    'exec.Dispose()
    End Sub

    Private Function Formato_CLT0_L001() As String
        Dim exec As New BusinessCatastrofico.FormatoServicio
        Dim rp As New NetResponse.MsSqlServer

        Formato_CLT0_L001 = ""
        exec.Get_Formato_CLT0_L001(rp)

        If rp.TieneDatos Then
            Formato_CLT0_L001 = rp.Ds.Tables(0).Rows(0).Item(0)
        End If
        If rp.Errores Then
        End If
        rp.Dispose()
        exec.Dispose()
    End Function
    Private Function Formato_CLT0_L063_D() As String
        Dim exec As New BusinessCatastrofico.FormatoServicio
        Dim rp As New NetResponse.MsSqlServer

        Formato_CLT0_L063_D = ""
        exec.Get_Formato_CLT0_L063_D(rp)

        If rp.TieneDatos Then
            Formato_CLT0_L063_D = rp.Ds.Tables(0).Rows(0).Item(0)
        End If
        If rp.Errores Then
        End If
        rp.Dispose()
        exec.Dispose()
    End Function

    Public Function ObtenerVendedor() As Boolean 'ByRef Service As Servicio) As Integer
        Dim CSrm As SrmConector
        Dim arr_Datos()
        Dim SRM_Nodo_Ejecutivo = ConfigurationManager.AppSettings.GetValues("SRM_Nodo_Ejecutivo")
        Try
            Dim Rut As String
            Dim szRut As String
            Dim szDatosCliente As String

            Rut = Mid(Me.txtRutEjecutivo.Text.Replace("-", "").Replace(".", ""), 1, Len(Me.txtRutEjecutivo.Text.Replace("-", "").Replace(".", "")) - 1)
            If Rut.ToString.Length = 7 Then
                szRut = "00" + Rut.ToString
            Else
                szRut = "0" + Rut.ToString
            End If

            ObtenerVendedor = False

            CSrm = New SrmConector
            With CSrm
                .Nodo = SRM_Nodo_Ejecutivo(0).ToString '"U017" '"F08R"
                .Aplicacion = "GS24"
                .Contexto = "00"
                .Tipo = "08" 'cantidad de kilos
                '.Mensaje = "12345789L063V0009" + szRut 
                .Mensaje = "b12256781234R00000000rrhhprod   exec sp_datos_funcionarios " & szRut
            End With

            If CSrm.Invoke Then
                szDatosCliente = CSrm.Respuesta
                If Mid(szDatosCliente, 1, 2) = "00" Then
                    arr_Datos = Split(szDatosCliente, "~")
                    If arr_Datos.Length > 1 Then
                        ObtenerVendedor = True
                        txtNombreEjecutivo.Text = arr_Datos(2)
                        txtNombreEjecutivo.AutoUpdateAfterCallBack = True
                        txtCUI.Text = arr_Datos(7)
                        txtCUI.AutoUpdateAfterCallBack = True
                    End If
                End If
            End If
        Catch ex As Exception
        End Try
    End Function

    Protected Sub txtRutAsegurado_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtRutAsegurado.TextChanged
        Dim fRut As New FunGenerales
        Dim lRut As Integer
        Dim szDigito As String
        szDigito = ""

        If Not fRut.ValidarRut(txtRutAsegurado.Text, lRut, szDigito) Then
            txtRutAsegurado.Text = ""
            txtRutAsegurado.Setfocus()
            txtRutAsegurado.AutoUpdateAfterCallBack = True
            Exit Sub
        End If
    End Sub
    Private Sub ObtenerAsegurado()
        Dim CSrm As SrmConector
        Dim arr_Datos()
        Try
            Dim Rut As Integer
            Dim szRut As String
            Dim szDatosCliente As String

            Rut = Mid(Me.txtRutAsegurado.Text.Replace("-", "").Replace(".", ""), 1, Len(Me.txtRutAsegurado.Text.Replace("-", "").Replace(".", "")) - 1)
            'szRut = "0" + Rut.ToString
            If Rut.ToString.Length = 7 Then
                szRut = "00" + Rut.ToString
            Else
                szRut = "0" + Rut.ToString
            End If

            CSrm = New SrmConector
            With CSrm
                .Nodo = "U062"
                .Aplicacion = "CLT0"
                .Contexto = "00"
                .Tipo = "08" 'cantidad de kilos
                '.Mensaje = "12345789L063V0009" + szRut 
                .Mensaje = "12345789L001L" & szRut
            End With

            If CSrm.Invoke Then
                szDatosCliente = CSrm.Respuesta
                If Mid(szDatosCliente, 1, 2) = "00" Then
                    Dim arr_CLT0_L001()
                    Dim iPosInicio As Integer
                    iPosInicio = 1

                    arr_CLT0_L001 = Split(Formato_CLT0_L001, "|")
                    ReDim arr_Datos(0)

                    For i = 0 To UBound(arr_CLT0_L001) - 1
                        ReDim Preserve arr_Datos(i)
                        arr_Datos(i) = Mid(szDatosCliente, iPosInicio, arr_CLT0_L001(i))
                        iPosInicio = iPosInicio + arr_CLT0_L001(i)
                    Next


                    'arr_Datos = Split(szDatosCliente, "~")
                    If arr_Datos.Length > 0 Then

                        ViewState("FechaNacimientoAsegurado") = Mid(arr_Datos(14), 7, 2) & "/" & Mid(arr_Datos(14), 5, 2) & "/" & Mid(arr_Datos(14), 1, 4)

                        If ViewState("FechaNacimientoAsegurado") <> txtFechaNacimientoAsegurado.Text Then
                            txtRutAsegurado.Text = ""
                            txtRutAsegurado.UpdateAfterCallBack = True
                            Anthem.Manager.AddScriptForClientSideEval("alert('Fecha de nacimiento del asegurado no corresponde a la simulada, favor reingrese o vuelva a simular');")
                            Exit Sub
                        End If

                        Dim arr_Nombre()
                        arr_Nombre = Split(arr_Datos(4), "/")
                        If arr_Nombre.Length = 3 Then
                            txtNombresAsegurado.Text = arr_Nombre(2).ToString.Trim
                            txtApellidoPaternoAsegurado.Text = arr_Nombre(0).ToString.Trim
                            txtApellidoMaternoAsegurado.Text = arr_Nombre(1).ToString.Trim
                        ElseIf arr_Nombre.Length = 2 Then
                            txtNombresAsegurado.Text = arr_Nombre(1).ToString.Trim
                            txtApellidoPaternoAsegurado.Text = arr_Nombre(0).ToString.Trim
                            txtApellidoMaternoAsegurado.Text = "."
                        ElseIf arr_Nombre.Length = 1 Then
                            txtNombresAsegurado.Text = arr_Nombre(0).ToString.Trim
                            txtApellidoPaternoAsegurado.Text = "."
                            txtApellidoMaternoAsegurado.Text = "."
                        End If

                        txtNombresAsegurado.AutoUpdateAfterCallBack = True
                        txtApellidoPaternoAsegurado.AutoUpdateAfterCallBack = True
                        txtApellidoMaternoAsegurado.AutoUpdateAfterCallBack = True

                        txtFechaNacimientoAsegurado.Text = Mid(arr_Datos(14), 7, 2) & "/" & Mid(arr_Datos(14), 5, 2) & "/" & Mid(arr_Datos(14), 1, 4)
                        txtFechaNacimientoAsegurado.AutoUpdateAfterCallBack = True
                        opSexo.SelectedValue = arr_Datos(16)
                        opSexo.AutoUpdateAfterCallBack = True

                    End If
                End If
            Else
                Anthem.Manager.AddScriptForClientSideEval("alert('Asegurado no es Cliente Banco');")
            End If
        Catch ex As Exception
        End Try
    End Sub

    Protected Sub opEsCliente_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles opEsCliente.SelectedIndexChanged
        If opEsCliente.SelectedValue = "SI" Then
            txtRutAsegurado.Text = txtRutContratante.Text
            txtRutAsegurado.AutoUpdateAfterCallBack = True
            opSexo.Enabled = False
            opSexo.UpdateAfterCallBack = True
            opEsCliente.UpdateAfterCallBack = True
            ObtenerAsegurado()
        Else
            txtRutAsegurado.Text = ""
            txtNombresAsegurado.Text = ""
            txtApellidoPaternoAsegurado.Text = ""
            txtApellidoMaternoAsegurado.Text = ""
            opSexo.SelectedValue = "1"
            'txtFechaNacimientoAsegurado.Text = ""
            opSexo.Enabled = True
            opSexo.UpdateAfterCallBack = True

            txtRutAsegurado.AutoUpdateAfterCallBack = True
            txtNombresAsegurado.AutoUpdateAfterCallBack = True
            txtApellidoPaternoAsegurado.AutoUpdateAfterCallBack = True
            txtApellidoMaternoAsegurado.AutoUpdateAfterCallBack = True
            opSexo.AutoUpdateAfterCallBack = True
            'txtFechaNacimientoAsegurado.AutoUpdateAfterCallBack = True
        End If
    End Sub

    Protected Sub cbCiudadDespacho_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cbCiudadDespacho.SelectedIndexChanged
        ObtieneComuna()
    End Sub

    Private Sub ObtieneComuna()
        Dim exec As New BusinessCatastrofico.CiudadComuna
        Dim rp As New NetResponse.MsSqlServer

        exec._CodCiudad = cbCiudadDespacho.SelectedValue
        exec.Get_Comuna(rp)
        cbComunaDespacho.DataSource = Nothing
        If rp.TieneDatos Then
            cbComunaDespacho.DataSource = rp.Ds.Tables(0)
            cbComunaDespacho.DataValueField = "CodComuna"
            cbComunaDespacho.DataTextField = "Nombre"
            cbComunaDespacho.DataBind()
        End If
        If rp.Errores Then
        End If

        cbComunaDespacho.AutoUpdateAfterCallBack = True

        rp.Dispose()
        exec.Dispose()
    End Sub

    Protected Sub ibBuscarEjecutivo_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibBuscarEjecutivo.Click
        If Not ObtenerVendedor() Then
            'txtNombreEjecutivo.ReadOnly = False
            'txtRutEjecutivo.Text = ""
            'txtRutEjecutivo.UpdateAfterCallBack = True
            txtNombreEjecutivo.Text = ""
            txtNombreEjecutivo.Enabled = True
            txtNombreEjecutivo.AutoUpdateAfterCallBack = True
            txtCUI.Text = ""
            txtCUI.Enabled = False
            txtCUI.AutoUpdateAfterCallBack = True
        Else
            txtNombreEjecutivo.Enabled = False
            txtNombreEjecutivo.AutoUpdateAfterCallBack = True
            'txtCUI.ReadOnly = True
            ' txtCUI.AutoUpdateAfterCallBack = True
        End If
    End Sub

    Protected Sub ibBuscarAsegurado_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibBuscarAsegurado.Click
        ObtenerAsegurado()
    End Sub

    Protected Sub opFormaPago_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles opFormaPago.SelectedIndexChanged
        ObtenerProducto()
        If opFormaPago.SelectedValue = "BCH" Then
            cbBanco.Visible = False
            cbBanco.UpdateAfterCallBack = True
            cbTipoTarjeta.Visible = False
            cbTipoTarjeta.UpdateAfterCallBack = True
            txtNroProducto.Visible = False
            txtNroProducto.UpdateAfterCallBack = True

            cbCuentas.Visible = True
            cbCuentas.UpdateAfterCallBack = True
            cbMDP.Visible = True
            cbMDP.UpdateAfterCallBack = True

        Else
            cbBanco.Visible = True
            cbBanco.UpdateAfterCallBack = True
            cbTipoTarjeta.Visible = False
            cbTipoTarjeta.UpdateAfterCallBack = True
            txtNroProducto.Visible = False
            txtNroProducto.UpdateAfterCallBack = True

            cbCuentas.Visible = False
            cbCuentas.UpdateAfterCallBack = True

            cbMDP.Items.Clear()

            Dim newListItem As New ListItem()
            newListItem.Text = "Seleccione Medio de Pago"
            newListItem.Value = "0"
            cbMDP.Items.Add(newListItem)

            Dim newListItem1 As New ListItem()
            newListItem1.Text = "Tarjeta de Crédito"
            newListItem1.Value = "COB"
            cbMDP.Items.Add(newListItem1)

            Dim newListItem2 As New ListItem()
            newListItem2.Text = "Cuenta Corriente"
            newListItem2.Value = "CTD"
            cbMDP.Items.Add(newListItem2)

            cbMDP.Visible = True
            cbMDP.UpdateAfterCallBack = True

            ObtieneBanco()
        End If
    End Sub

    Protected Sub btVolver_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btVolver.Click
        Dim szURL As String
        szURL = "frm_Valorizacion.aspx?IDSeguro=" & txtIDSeguro.Text
        Response.Redirect(szURL)
    End Sub

    Private Sub txtRutCarga1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtRutCarga1.TextChanged
        Dim fRut As New FunGenerales
        Dim lRut As Integer
        Dim szDigito As String
        szDigito = ""

        If Not fRut.ValidarRut(txtRutCarga1.Text, lRut, szDigito) Then
            txtRutCarga1.Text = ""
            txtRutCarga1.Setfocus()
            txtRutCarga1.AutoUpdateAfterCallBack = True
            Exit Sub
        End If
    End Sub

    Private Sub txtRutCarga2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtRutCarga2.TextChanged
        Dim fRut As New FunGenerales
        Dim lRut As Integer
        Dim szDigito As String
        szDigito = ""

        If Not fRut.ValidarRut(txtRutCarga2.Text, lRut, szDigito) Then
            txtRutCarga2.Text = ""
            txtRutCarga2.Setfocus()
            txtRutCarga2.AutoUpdateAfterCallBack = True
            Exit Sub
        End If
    End Sub

    Private Sub txtRutCarga3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtRutCarga3.TextChanged
        Dim fRut As New FunGenerales
        Dim lRut As Integer
        Dim szDigito As String
        szDigito = ""

        If Not fRut.ValidarRut(txtRutCarga3.Text, lRut, szDigito) Then
            txtRutCarga3.Text = ""
            txtRutCarga3.Setfocus()
            txtRutCarga3.AutoUpdateAfterCallBack = True
            Exit Sub
        End If
    End Sub

    Private Sub txtRutCarga4_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtRutCarga4.TextChanged
        Dim fRut As New FunGenerales
        Dim lRut As Integer
        Dim szDigito As String
        szDigito = ""

        If Not fRut.ValidarRut(txtRutCarga4.Text, lRut, szDigito) Then
            txtRutCarga4.Text = ""
            txtRutCarga4.Setfocus()
            txtRutCarga4.AutoUpdateAfterCallBack = True
            Exit Sub
        End If
    End Sub

    Private Sub txtRutCarga5_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtRutCarga5.TextChanged
        Dim fRut As New FunGenerales
        Dim lRut As Integer
        Dim szDigito As String
        szDigito = ""

        If Not fRut.ValidarRut(txtRutCarga5.Text, lRut, szDigito) Then
            txtRutCarga5.Text = ""
            txtRutCarga5.Setfocus()
            txtRutCarga5.AutoUpdateAfterCallBack = True
            Exit Sub
        End If
    End Sub

    Private Sub txtRutCarga6_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtRutCarga6.TextChanged
        Dim fRut As New FunGenerales
        Dim lRut As Integer
        Dim szDigito As String
        szDigito = ""

        If Not fRut.ValidarRut(txtRutCarga6.Text, lRut, szDigito) Then
            txtRutCarga6.Text = ""
            txtRutCarga6.Setfocus()
            txtRutCarga6.AutoUpdateAfterCallBack = True
            Exit Sub
        End If
    End Sub

    Private Function FechaNacimiento(ByVal Texto As String) As Boolean

        Dim szFechaActual As String
        Dim szFechaNacimiento As String
        Dim arr_FechaActual()
        Dim arr_FechaNacimiento
        Dim iDia As Integer
        Dim iMes As Integer
        Dim iAnno As Integer

        Mensaje1 = False
        Mensaje2 = False


        szFechaNacimiento = Texto.Replace("-", "/")
        szFechaActual = Now.Date.ToString("dd/MM/yyyy").Replace("-", "/")

        arr_FechaActual = Split(szFechaActual, "/")
        arr_FechaNacimiento = Split(szFechaNacimiento, "/")

        iDia = arr_FechaActual(0) - arr_FechaNacimiento(0)
        iMes = arr_FechaActual(1) - arr_FechaNacimiento(1)
        iAnno = arr_FechaActual(2) - arr_FechaNacimiento(2)

        If iMes < 0 Then
            iAnno = iAnno - 1
        ElseIf iMes = 0 Then
            If iDia > 0 Then
                iAnno = iAnno - 1
            End If
        End If

        If iAnno < 0 Or iAnno = -1 And iMes < 0 And iDia < 14 Then
            Mensaje1 = True
        End If

        If iAnno >= 23 And iMes >= 0 And iDia >= 0 Then
            Mensaje2 = True
        ElseIf iAnno >= 24 And iMes < 0 And iDia < 0 Then
            Mensaje2 = True
        ElseIf iAnno > 24 Then
            Mensaje2 = True
        End If

    End Function

    Private Sub cmbParentescoCarga1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbParentescoCarga1.SelectedIndexChanged
        If cmbParentescoCarga1.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga1.Text)
            If Mensaje1 = True Then
                txtFNCarga1.Text = ""
                txtFNCarga1.UpdateAfterCallBack = True
                cmbParentescoCarga1.ClearSelection()
                cmbParentescoCarga1.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser mayor a 14 días');")
            ElseIf Mensaje2 = True Then
                cmbParentescoCarga1.ClearSelection()
                cmbParentescoCarga1.UpdateAfterCallBack = True
                txtFNCarga1.Text = ""
                txtFNCarga1.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser menor a 24 años');")
            End If
        End If

    End Sub

    Private Sub cmbParentescoCarga2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbParentescoCarga2.SelectedIndexChanged
        If cmbParentescoCarga2.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga2.Text)

            If Mensaje1 = True Then
                txtFNCarga2.Text = ""
                txtFNCarga2.UpdateAfterCallBack = True
                cmbParentescoCarga2.ClearSelection()
                cmbParentescoCarga2.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°2 debe ser mayor a 14 días');")
            ElseIf Mensaje2 = True Then
                txtFNCarga2.Text = ""
                txtFNCarga2.UpdateAfterCallBack = True
                cmbParentescoCarga2.ClearSelection()
                cmbParentescoCarga2.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°2 debe ser menor a 24 años');")
            End If
        End If

    End Sub

    Private Sub cmbParentescoCarga3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbParentescoCarga3.SelectedIndexChanged
        If cmbParentescoCarga3.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga3.Text)

            If Mensaje1 = True Then
                txtFNCarga3.Text = ""
                txtFNCarga3.UpdateAfterCallBack = True
                cmbParentescoCarga3.ClearSelection()
                cmbParentescoCarga3.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°3 debe ser mayor a 14 días');")
            ElseIf Mensaje2 = True Then
                txtFNCarga3.Text = ""
                txtFNCarga3.UpdateAfterCallBack = True
                cmbParentescoCarga3.ClearSelection()
                cmbParentescoCarga3.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°3 debe ser menor a 24 años');")
            End If
        End If

    End Sub

    Private Sub cmbParentescoCarga4_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbParentescoCarga4.SelectedIndexChanged
        If cmbParentescoCarga4.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga4.Text)

            If Mensaje1 = True Then
                txtFNCarga4.Text = ""
                txtFNCarga4.UpdateAfterCallBack = True
                cmbParentescoCarga4.ClearSelection()
                cmbParentescoCarga4.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°4 debe ser mayor a 14 días');")
            ElseIf Mensaje2 = True Then
                txtFNCarga4.Text = ""
                txtFNCarga4.UpdateAfterCallBack = True
                cmbParentescoCarga4.ClearSelection()
                cmbParentescoCarga4.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°4 debe ser menor a 24 años');")
            End If
        End If

    End Sub

    Private Sub cmbParentescoCarga5_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbParentescoCarga5.SelectedIndexChanged
        If cmbParentescoCarga5.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga5.Text)

            If Mensaje1 = True Then
                txtFNCarga5.Text = ""
                txtFNCarga5.UpdateAfterCallBack = True
                cmbParentescoCarga5.ClearSelection()
                cmbParentescoCarga5.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°5 debe ser mayor a 14 días');")
            ElseIf Mensaje2 = True Then
                txtFNCarga5.Text = ""
                txtFNCarga5.UpdateAfterCallBack = True
                cmbParentescoCarga5.ClearSelection()
                cmbParentescoCarga5.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°5 debe ser menor a 24 años');")
            End If
        End If

    End Sub

    Private Sub cmbParentescoCarga6_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbParentescoCarga6.SelectedIndexChanged
        If cmbParentescoCarga6.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga6.Text)

            If Mensaje1 = True Then
                txtFNCarga6.Text = ""
                txtFNCarga6.UpdateAfterCallBack = True
                cmbParentescoCarga6.ClearSelection()
                cmbParentescoCarga6.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°6 debe ser mayor a 14 días');")
            ElseIf Mensaje2 = True Then
                txtFNCarga6.Text = ""
                txtFNCarga6.UpdateAfterCallBack = True
                cmbParentescoCarga6.ClearSelection()
                cmbParentescoCarga6.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°6 debe ser menor a 24 años');")
            End If
        End If

    End Sub

    Private Function NombreTipoProducto(ByVal CodTipoProducto As String) As String
        Dim exec As New BusinessCatastrofico.Venta
        Dim rp As New NetResponse.MsSqlServer

        exec._CodTipoproducto = CodTipoProducto
        exec.Get_Tipoproducto(rp)
        NombreTipoProducto = "Sin Nombre"
        If rp.TieneDatos Then
            NombreTipoProducto = rp.Ds.Tables(0).Rows(0).Item(0)
        End If
        If rp.Errores Then
        End If
        rp.Dispose()
        exec.Dispose()
    End Function

    Private Sub ObtenerProducto()
        Dim CSrm As SrmConector
        Dim TipoProductoHabilitados = ConfigurationManager.AppSettings.GetValues("TipoProductoHabilitados")

        Dim arr_Datos()

        Dim arr_TipoProducto()
        arr_TipoProducto = Split(TipoProductoHabilitados(0).ToString, "|")

        Try
            Dim Rut As Integer
            Dim szRut As String
            Dim szDatosCliente As String

            Rut = Mid(Me.txtRutContratante.Text.Replace("-", "").Replace(".", ""), 1, Len(Me.txtRutContratante.Text.Replace("-", "").Replace(".", "")) - 1)
            szRut = Format$(Rut, "00000000")
            'szRut = szRut 'Rut.ToString
         

            CSrm = New SrmConector
            With CSrm
                .Nodo = "U062"
                .Aplicacion = "CLT0"
                .Contexto = "00"
                .Tipo = "08" 'cantidad de kilos
                '.Mensaje = "12345678L063V00090" + "12436485"
                '.Mensaje = "12345678L063V0009012488347"
                .Mensaje = "12345678L063V00090" & szRut
            End With

            If CSrm.Invoke Then
                szDatosCliente = CSrm.Respuesta
                If Mid(szDatosCliente, 1, 2) = "00" Then
                    Dim arr_CLT0_L063_D()
                    Dim iPosInicio As Integer
                    iPosInicio = 1

                    arr_CLT0_L063_D = Split(Formato_CLT0_L063_D, "|")
                    ReDim arr_Datos(0)

                    szDatosCliente = Mid(szDatosCliente, 17, Len(szDatosCliente))
                    Dim iFilas As Integer

                    iFilas = szDatosCliente.Length / 25
                    Dim szDatos As String

                    cbMDP.Items.Clear()


                    Dim newListItems As New ListItem()
                    newListItems.Text = "Seleccionar Producto"
                    newListItems.Value = ""
                    cbMDP.Items.Add(newListItems)

                    For i = 1 To iFilas
                        szDatos = ""
                        ReDim Preserve arr_Datos(i)
                        szDatos = Mid(szDatosCliente, iPosInicio, 25)
                        For iTipoProducto = 0 To arr_TipoProducto.Length - 1
                            If Mid(szDatos, 1, 3) = arr_TipoProducto(iTipoProducto) Then
                                Try
                                    'cbMDP.SelectedValue = arr_TipoProducto(iTipoProducto)
                                    Dim newListItem As New ListItem()
                                    newListItem.Text = NombreTipoProducto(arr_TipoProducto(iTipoProducto).ToString.Trim)
                                    newListItem.Value = arr_TipoProducto(iTipoProducto).ToString.Trim
                                    cbMDP.Items.Add(newListItem)
                                Catch ex As Exception
                                    'Dim newListItem As New ListItem()
                                    'newListItem.Text = arr_TipoProducto(iTipoProducto).ToString.Trim
                                    'newListItem.Value = NombreTipoProducto(arr_TipoProducto(iTipoProducto).ToString.Trim)
                                    'cbMDP.Items.Add(newListItem)

                                End Try
                                'Dim newListItem As New ListItem()
                                'newListItem.Text = Mid(szDatos, 4, 22).Trim
                                'newListItem.Value = Mid(szDatos, 4, 22).Trim
                                'cbCuentas.Items.Add(newListItem)
                            End If
                        Next
                        cbMDP.AutoUpdateAfterCallBack = True
                        'arr_Datos(i) = Mid(szDatosCliente, iPosInicio, arr_CLT0_L063_D(i))
                        iPosInicio = iPosInicio + 25
                    Next

                    'arr_Datos = Split(szDatosCliente, "~")
                    'If arr_Datos.Length > 0 Then
                    '    For i = 0 To arr_Datos.Length - 1
                    '        cbCuentas.Items.Add(arr_Datos(i))
                    '    Next
                    'End If
                End If
            End If
        Catch ex As Exception
        End Try
    End Sub

    Protected Sub cbMDP_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cbMDP.SelectedIndexChanged

        If opFormaPago.SelectedValue = "BCH" Then
            obtiene_Producto_x_Tipo()
        Else
            If Me.cbMDP.SelectedValue = "COB" Then
                cbTipoTarjeta.Visible = True
                cbTipoTarjeta.UpdateAfterCallBack = True
                txtNroProducto.Visible = True
                txtNroProducto.UpdateAfterCallBack = True
            ElseIf Me.cbMDP.SelectedValue = "CTD" Then
                cbTipoTarjeta.Visible = False
                cbTipoTarjeta.UpdateAfterCallBack = True
                txtNroProducto.Visible = True
                txtNroProducto.UpdateAfterCallBack = True
            Else
                cbTipoTarjeta.Visible = False
                cbTipoTarjeta.UpdateAfterCallBack = True
                txtNroProducto.Visible = False
                txtNroProducto.UpdateAfterCallBack = True
            End If
        End If
    End Sub

    Public Sub obtiene_Producto_x_Tipo()

        Dim CSrm_TS As SrmConector
        Dim Ret As Integer

        Try

            Ret = ResultOK

            Dim Rut As Integer
            Dim szRut As String
            Dim szDatosCliente As String

            Rut = Mid(Me.txtRutContratante.Text.Replace("-", "").Replace(".", ""), 1, Len(Me.txtRutContratante.Text.Replace("-", "").Replace(".", "")) - 1)
            'szRut = "0" + Rut.ToString
            If Rut.ToString.Length = 7 Then
                szRut = "00" + Rut.ToString
            Else
                szRut = "0" + Rut.ToString
            End If

            CSrm_TS = New SrmConector
            With CSrm_TS
                .Nodo = "U062"
                .Aplicacion = "CLT0"
                .Contexto = "00"
                .Tipo = "08" 'cantidad de kilos
                '.Mensaje = "12345789L063V0009" + szRut 
                .Mensaje = "12345678L053V0012" & szRut & cbMDP.SelectedValue.Trim
            End With

            If CSrm_TS.Invoke Then

                szDatosCliente = CSrm_TS.Respuesta
                If Mid(szDatosCliente, 1, 2) = "00" Then
                    cbCuentas.Items.Clear()

                    szDatosCliente = Mid(szDatosCliente, 17, Len(szDatosCliente) - 16)
                    For i = 1 To Len(szDatosCliente) / 25

                        'szSeguro_A_C = ValidaSeguro_A(Mid(szDatosCliente, ((i * 25) - 25) + 4, 25 - 3))
                        'If szSeguro_A_C = "A" Then
                        '    iContador_A = iContador_A + 1
                        'ElseIf szSeguro_A_C = "C" Then
                        '    iContador_C = iContador_C + 1
                        'End If

                        Dim newListItem As New ListItem()
                        Dim NroCuenta As String
                        NroCuenta = Mid(szDatosCliente, ((i * 25) - 25) + 4, 25 - 3).Trim
                        newListItem.Text = "XXXXXXXXXX" & Mid(NroCuenta, Len(NroCuenta) - 3, 4)
                        newListItem.Value = Mid(szDatosCliente, ((i * 25) - 25) + 4, 25 - 3)
                        cbCuentas.Items.Add(newListItem)


                    Next
                End If
                cbCuentas.AutoUpdateAfterCallBack = True
            End If
        Catch ex As Exception
        End Try
    End Sub

    Protected Sub txtFechaPrimerCargo_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtFechaPrimerCargo.TextChanged
    End Sub

    Protected Sub btAceptar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btAceptar.Click
        Validar_Datos()
    End Sub

    Public Sub Grabar_IngresoVenta()

        Dim szPlan As String

        Dim exec As New BusinessCatastrofico.TMP_VentaSeguro
        Dim rp As New NetResponse.MsSqlServer

        Dim szRutVendedor As String
        Dim szRutAsegurado As String

        szRutVendedor = Me.txtRutEjecutivo.Text.Replace("-", "").Replace(".", "").Trim
        szRutAsegurado = Me.txtRutAsegurado.Text.Replace("-", "").Replace(".", "").Trim



        exec._IDSeguro = txtIDSeguro.Text

        exec._Rut_vendedor = Mid(szRutVendedor, 1, Len(szRutVendedor) - 1)
        exec._DVRut_vendedor = Mid(szRutVendedor, Len(szRutVendedor), 1)
        exec._Nombre_Vendedor = txtNombreEjecutivo.Text
        exec._CUI = txtCUI.Text
        exec._Rut_Asegurado = Mid(szRutAsegurado, 1, Len(szRutAsegurado) - 1)
        exec._DVRut_Asegurador = Mid(szRutAsegurado, Len(szRutAsegurado), 1)
        exec._Nombre_Asegurado = txtNombresAsegurado.Text
        exec._ApellidoPaterno_Asegurado = txtApellidoPaternoAsegurado.Text
        exec._ApellidoMaterno_Asegurado = txtApellidoMaternoAsegurado.Text
        exec._FechaNacimiento_Asegurado = txtFechaNacimientoAsegurado.Text
        exec._Sexo = opSexo.SelectedValue
        exec._Calle = txtCalleDespacho.Text
        exec._NroCalle = txtNroDespacho.Text
        exec._NroDepartamento = txtDeptoDespacho.Text
        exec._VillaPoblacion = txtVillaDespacho.Text
        exec._Telefono = txtTelefonoDespacho.Text
        exec._Celular = txtCelularDespacho.Text
        exec._Correo = txtMailDespacho.Text
        exec._CodCiudad = cbCiudadDespacho.SelectedValue
        exec._CodComuna = cbComunaDespacho.SelectedValue
        exec._CodBanco = cbBanco.SelectedValue
        exec._CodMedioPago = cbMDP.SelectedValue
        exec._TipoTarjeta = IIf(opFormaPago.SelectedValue <> "BCH", cbTipoTarjeta.SelectedValue, "")
        exec._NroMedioPago = IIf(opFormaPago.SelectedValue = "BCH", cbCuentas.SelectedValue, txtNroProducto.Text)
        exec._FechaPrimerCargo = txtFechaPrimerCargo.Text
        exec._MedioPagoBCH = opFormaPago.SelectedValue


        exec.UPD_IngresoVenta(rp)

        If rp.TieneDatos Then
        End If
        If rp.Errores Then

        End If
        rp.Dispose()
        exec.Dispose()

        'Dim szURL As String
        'szURL = "frm_IngresoDatos.aspx?IDSeguro=" & txtIDSeguro.Text & "&Carga=" & iNroCarga.ToString
        'Response.Redirect(szURL)
    End Sub

    Public Sub Grabar_Cargas()

        Dim szPlan As String

        Dim exec As New BusinessCatastrofico.Venta
        Dim rp As New NetResponse.MsSqlServer

        Dim szRutVendedor As String
        Dim szRutAsegurado As String
        Dim szRut As String
        Dim szDigito As String
        Dim szRut_valor As String

        szRutVendedor = Me.txtRutEjecutivo.Text.Replace("-", "").Replace(".", "").Trim
        szRutAsegurado = Me.txtRutAsegurado.Text.Replace("-", "").Replace(".", "").Trim



        exec._IDSeguro = txtIDSeguro.Text


        exec._Rut_Asegurado = Mid(szRutVendedor, 1, Len(szRutVendedor) - 1)
        exec._DVRut_Asegurado = Mid(szRutVendedor, Len(szRutVendedor), 1)

        szRut = ""
        szRut = Me.txtRutCarga1.Text.Replace("-", "").Replace(".", "").Trim
        szRut_valor = Me.txtRutCarga1.Text.Replace("-", "").Replace(".", "").Trim
        If szRut = "" Then
            szDigito = ""

        Else
            szRut = Mid(szRut, 1, Len(szRut) - 1)
            szDigito = Mid(szRut_valor, Len(szRut_valor), 1)
            'szRut = Mid(szRut, 1, Len(szRut) - 1)
            'szDigito = Right(szRut, 1)

        End If

        exec._RutCarga1 = szRut
        exec._DV_RutCarga1 = szDigito
        exec._Nombre1 = txtNombreCarga1.Text
        exec._Ape_Mat1 = txtApMCarga1.Text
        exec._Ape_Pat1 = txtApPCarga1.Text
        exec._FechaNacimientoCarga1 = txtFNCarga1.Text
        exec._ID_Parentesco1 = IIf(cmbParentescoCarga1.SelectedValue = "Selecione Parentesco", "000", cmbParentescoCarga1.SelectedValue)


        szRut = ""
        szRut = Me.txtRutCarga2.Text.Replace("-", "").Replace(".", "").Trim
        szRut_valor = Me.txtRutCarga2.Text.Replace("-", "").Replace(".", "").Trim
        If szRut = "" Then
            szDigito = ""
        Else
            szRut = Mid(szRut, 1, Len(szRut) - 1)
            szDigito = Mid(szRut_valor, Len(szRut_valor), 1)
        End If
        exec._RutCarga2 = szRut
        exec._DV_RutCarga2 = szDigito
        exec._Nombre2 = txtNombreCarga2.Text
        exec._Ape_Mat2 = txtApMCarga2.Text
        exec._Ape_Pat2 = txtApPCarga2.Text
        exec._FechaNacimientoCarga2 = txtFNCarga2.Text
        exec._ID_Parentesco2 = IIf(cmbParentescoCarga2.SelectedValue = "Selecione Parentesco", "000", cmbParentescoCarga2.SelectedValue)


        szRut = ""
        szRut = Me.txtRutCarga3.Text.Replace("-", "").Replace(".", "").Trim
        szRut_valor = Me.txtRutCarga3.Text.Replace("-", "").Replace(".", "").Trim
        If szRut = "" Then
            szDigito = ""
        Else
            szRut = Mid(szRut, 1, Len(szRut) - 1)
            szDigito = Mid(szRut_valor, Len(szRut_valor), 1)
        End If

        exec._RutCarga3 = szRut
        exec._DV_RutCarga3 = szDigito
        exec._Nombre3 = txtNombreCarga3.Text
        exec._Ape_Mat3 = txtApMCarga3.Text
        exec._Ape_Pat3 = txtApPCarga3.Text
        exec._FechaNacimientoCarga3 = txtFNCarga3.Text
        exec._ID_Parentesco3 = IIf(cmbParentescoCarga3.SelectedValue = "Selecione Parentesco", "000", cmbParentescoCarga3.SelectedValue)


        szRut = ""
        szRut = Me.txtRutCarga4.Text.Replace("-", "").Replace(".", "").Trim
        szRut_valor = Me.txtRutCarga4.Text.Replace("-", "").Replace(".", "").Trim
        If szRut = "" Then
            szDigito = ""
        Else
            szRut = Mid(szRut, 1, Len(szRut) - 1)
            szDigito = Mid(szRut_valor, Len(szRut_valor), 1)
        End If

        exec._RutCarga4 = szRut
        exec._DV_RutCarga4 = szDigito
        exec._Nombre4 = txtNombreCarga4.Text
        exec._Ape_Mat4 = txtApMCarga4.Text
        exec._Ape_Pat4 = txtApPCarga4.Text
        exec._FechaNacimientoCarga4 = txtFNCarga4.Text
        exec._ID_Parentesco4 = IIf(cmbParentescoCarga4.SelectedValue = "Selecione Parentesco", "000", cmbParentescoCarga4.SelectedValue)


        szRut = ""
        szRut = Me.txtRutCarga5.Text.Replace("-", "").Replace(".", "").Trim
        szRut_valor = Me.txtRutCarga5.Text.Replace("-", "").Replace(".", "").Trim
        If szRut = "" Then
            szDigito = ""
        Else
            szRut = Mid(szRut, 1, Len(szRut) - 1)
            szDigito = Mid(szRut_valor, Len(szRut_valor), 1)
        End If

        exec._RutCarga5 = szRut
        exec._DV_RutCarga5 = szDigito
        exec._Nombre5 = txtNombreCarga5.Text
        exec._Ape_Mat5 = txtApMCarga5.Text
        exec._Ape_Pat5 = txtApPCarga5.Text
        exec._FechaNacimientoCarga5 = txtFNCarga5.Text
        exec._ID_Parentesco5 = IIf(cmbParentescoCarga5.SelectedValue = "Selecione Parentesco", "000", cmbParentescoCarga5.SelectedValue)


        szRut = ""
        szRut = Me.txtRutCarga6.Text.Replace("-", "").Replace(".", "").Trim
        szRut_valor = Me.txtRutCarga6.Text.Replace("-", "").Replace(".", "").Trim
        If szRut = "" Then
            szDigito = ""
        Else
            szRut = Mid(szRut, 1, Len(szRut) - 1)
            szDigito = Mid(szRut_valor, Len(szRut_valor), 1)
        End If

        exec._RutCarga6 = szRut
        exec._DV_RutCarga6 = szDigito
        exec._Nombre6 = txtNombreCarga6.Text
        exec._Ape_Mat6 = txtApMCarga6.Text
        exec._Ape_Pat6 = txtApPCarga6.Text
        exec._FechaNacimientoCarga6 = txtFNCarga6.Text
        exec._ID_Parentesco6 = IIf(cmbParentescoCarga6.SelectedValue = "Selecione Parentesco", "000", cmbParentescoCarga6.SelectedValue)

        exec.Put_Carga(rp)

        If rp.TieneDatos Then
        End If
        If rp.Errores Then

        End If
        rp.Dispose()
        exec.Dispose()

        'Dim szURL As String
        'szURL = "frm_IngresoDatos.aspx?IDSeguro=" & txtIDSeguro.Text & "&Carga=" & iNroCarga.ToString
        'Response.Redirect(szURL)
    End Sub

    Public Sub Validar_Datos()
        If txtFechaPrimerCargo.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Fecha de Primer Cargo ');")
            Exit Sub
        Else
            ' If IsDate(txtFechaPrimerCargo.Text) Then
            Dim iDiferencia As Integer
            'Dim FechaActual As Date
            Dim FechaPrimerCargo As Date

            FechaPrimerCargo = DateTime.ParseExact(txtFechaPrimerCargo.Text, "dd/MM/yyyy", Nothing)
            ' FechaPrimerCargo = DateTime.Parse(txtFechaPrimerCargo.Text)
            'iDiferencia = DateDiff(DateInterval.Day, Now.Date, CDate(txtFechaPrimerCargo.Text))
            iDiferencia = DateDiff(DateInterval.Day, Now.Date, FechaPrimerCargo)
            If opFormaPago.SelectedValue = "BCH" Then
                If iDiferencia < 2 Or iDiferencia > 20 Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Fecha Primer Cargo no Correspode, debe ser entre 2 y 20 días');")
                    Exit Sub
                ElseIf Weekday(FechaPrimerCargo) = 1 Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Fecha Primer Cargo Debe ser Día Hábil');")
                    Exit Sub
                ElseIf Weekday(FechaPrimerCargo) = 7 Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Fecha Primer Cargo Debe ser Día Hábil');")
                    Exit Sub
                End If
            Else
                If iDiferencia < 10 Or iDiferencia > 20 Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Fecha Primer Cargo no Correspode, debe ser entre 10 y 20 días');")
                    Exit Sub
                ElseIf Weekday(FechaPrimerCargo) = 1 Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Fecha Primer Cargo Debe ser Día Hábil');")
                    Exit Sub
                ElseIf Weekday(FechaPrimerCargo) = 7 Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Fecha Primer Cargo Debe ser Día Hábil');")
                    Exit Sub
                End If
            End If
            'End If
        End If

        If txtRutEjecutivo.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Rut Vendedor');")
            Exit Sub
        End If
        If txtNombreEjecutivo.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre Vendedor');")
            Exit Sub
        End If
        If txtRutContratante.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Rut Contratante');")
            Exit Sub
        End If
        If txtNombreContratante.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre Contratante');")
            Exit Sub
        End If
        If txtRutAsegurado.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Rut Asegurado');")
            Exit Sub
        End If
        If txtNombresAsegurado.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre Asegurado');")
            Exit Sub
        End If
        If txtApellidoPaternoAsegurado.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Paterno Asegurado');")
            Exit Sub
        End If
        If txtApellidoMaternoAsegurado.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Materno Asegurado');")
            Exit Sub
        End If
        If txtCalleDespacho.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Calle Despacho');")
            Exit Sub
        End If
        If txtNroDespacho.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Numero de Calle Despacho');")
            Exit Sub
        End If
        If txtTelefonoDespacho.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Telefono');")
            Exit Sub
        End If
        If txtFechaPrimerCargo.Text = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Fecha de Primer Cargo');")
            Exit Sub
        End If
        If cbMDP.SelectedValue.Trim = "0" Or cbMDP.SelectedValue.Trim = "" Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Falta Producto');")
            Exit Sub
        End If
        If opFormaPago.SelectedValue.Trim = "OTROS" And cbMDP.SelectedValue.Trim = "COB" Then
            If cbTipoTarjeta.SelectedValue.Trim = "5" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Tipo de Tarjeta');")
                Exit Sub
            End If
            If txtNroProducto.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Numero Producto');")
                Exit Sub
            End If
        ElseIf opFormaPago.SelectedValue.Trim = "OTROS" And cbMDP.SelectedValue.Trim = "CTD" Then
            If txtNroProducto.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Numero Producto');")
                Exit Sub
            End If
        End If

        If cmbParentescoCarga1.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga1.Text)
            If Mensaje1 = True Then
                txtFNCarga1.Text = ""
                txtFNCarga1.UpdateAfterCallBack = True
                cmbParentescoCarga1.ClearSelection()
                cmbParentescoCarga1.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser mayor a 14 días');")
                Exit Sub
            ElseIf Mensaje2 = True Then
                cmbParentescoCarga1.ClearSelection()
                cmbParentescoCarga1.UpdateAfterCallBack = True
                txtFNCarga1.Text = ""
                txtFNCarga1.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser menor a 24 años');")
                Exit Sub
            End If
        End If

        If cmbParentescoCarga2.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga2.Text)
            If Mensaje1 = True Then
                txtFNCarga2.Text = ""
                txtFNCarga2.UpdateAfterCallBack = True
                cmbParentescoCarga2.ClearSelection()
                cmbParentescoCarga2.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser mayor a 14 días');")
                Exit Sub
            ElseIf Mensaje2 = True Then
                cmbParentescoCarga2.ClearSelection()
                cmbParentescoCarga2.UpdateAfterCallBack = True
                txtFNCarga2.Text = ""
                txtFNCarga2.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser menor a 24 años');")
                Exit Sub
            End If
        End If


        If cmbParentescoCarga3.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga3.Text)
            If Mensaje1 = True Then
                txtFNCarga3.Text = ""
                txtFNCarga3.UpdateAfterCallBack = True
                cmbParentescoCarga3.ClearSelection()
                cmbParentescoCarga3.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser mayor a 14 días');")
                Exit Sub
            ElseIf Mensaje2 = True Then
                cmbParentescoCarga3.ClearSelection()
                cmbParentescoCarga3.UpdateAfterCallBack = True
                txtFNCarga3.Text = ""
                txtFNCarga3.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser menor a 24 años');")
                Exit Sub
            End If
        End If

        If cmbParentescoCarga4.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga4.Text)
            If Mensaje1 = True Then
                txtFNCarga4.Text = ""
                txtFNCarga4.UpdateAfterCallBack = True
                cmbParentescoCarga4.ClearSelection()
                cmbParentescoCarga4.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser mayor a 14 días');")
                Exit Sub
            ElseIf Mensaje2 = True Then
                cmbParentescoCarga4.ClearSelection()
                cmbParentescoCarga4.UpdateAfterCallBack = True
                txtFNCarga4.Text = ""
                txtFNCarga4.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser menor a 24 años');")
                Exit Sub
            End If
        End If


        If cmbParentescoCarga5.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga5.Text)
            If Mensaje1 = True Then
                txtFNCarga5.Text = ""
                txtFNCarga5.UpdateAfterCallBack = True
                cmbParentescoCarga5.ClearSelection()
                cmbParentescoCarga5.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser mayor a 14 días');")
                Exit Sub
            ElseIf Mensaje2 = True Then
                cmbParentescoCarga5.ClearSelection()
                cmbParentescoCarga5.UpdateAfterCallBack = True
                txtFNCarga5.Text = ""
                txtFNCarga5.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser menor a 24 años');")
                Exit Sub
            End If
        End If

        If cmbParentescoCarga6.SelectedValue = "02" Then
            FechaNacimiento(txtFNCarga6.Text)
            If Mensaje1 = True Then
                txtFNCarga6.Text = ""
                txtFNCarga6.UpdateAfterCallBack = True
                cmbParentescoCarga6.ClearSelection()
                cmbParentescoCarga6.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser mayor a 14 días');")
                Exit Sub
            ElseIf Mensaje2 = True Then
                cmbParentescoCarga6.ClearSelection()
                cmbParentescoCarga6.UpdateAfterCallBack = True
                txtFNCarga6.Text = ""
                txtFNCarga6.UpdateAfterCallBack = True
                Anthem.Manager.AddScriptForClientSideEval("alert('Edad de la Carga N°1 debe ser menor a 24 años');")
                Exit Sub
            End If
        End If

        Dim CONTADOR As Integer

        If Request("Carga") = 1 Then
            CONTADOR = 1
            If txtNombreCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre Primera Carga');")
                Exit Sub
            End If
            If txtApPCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Paterno Primera Carga');")
                Exit Sub
            End If
            If txtApMCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Materno Primera Carga');")
                Exit Sub
            End If
            If txtFNCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Fecha de Nacimiento Primera Carga');")
                Exit Sub
            End If
            If cmbParentescoCarga1.SelectedValue.Trim = "000" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Parentesco Primera Carga');")
                Exit Sub
            End If
        End If

        If Request("Carga") = 2 Then
            CONTADOR = 2
            If txtNombreCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre Primera Carga');")
                Exit Sub
            End If
            If txtApPCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Paterno Primera Carga');")
                Exit Sub
            End If
            If txtApMCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Materno Primera Carga');")
                Exit Sub
            End If
            If txtFNCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Fecha de Nacimiento Primera Carga');")
                Exit Sub
            End If
            If cmbParentescoCarga1.SelectedValue.Trim = "000" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Parentesco Primera Carga');")
                Exit Sub
            End If
            If txtNombreCarga2.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre Segunda Carga');")
                Exit Sub
            End If
            If txtApPCarga2.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Paterno Segunda Carga');")
                Exit Sub
            End If
            If txtApMCarga2.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Materno Segunda Carga');")
                Exit Sub
            End If
            If txtFNCarga2.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Fecha de Nacimiento Segunda Carga');")
                Exit Sub
            End If
            If cmbParentescoCarga2.SelectedValue.Trim = "000" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Parentesco Segunda Carga');")
                Exit Sub
            End If

        End If

        If Request("Carga") = 3 Then
            CONTADOR = 3
            If txtNombreCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre Primera Carga');")
                Exit Sub
            End If
            If txtApPCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Paterno Primera Carga');")
                Exit Sub
            End If
            If txtApMCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Materno Primera Carga');")
                Exit Sub
            End If
            If txtFNCarga1.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Fecha de Nacimiento Primera Carga');")
                Exit Sub
            End If
            If cmbParentescoCarga1.SelectedValue.Trim = "000" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Parentesco Primera Carga');")
                Exit Sub
            End If

            If txtNombreCarga2.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre Segunda Carga');")
                Exit Sub
            End If
            If txtApPCarga2.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Paterno Segunda Carga');")
                Exit Sub
            End If
            If txtApMCarga2.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Materno Segunda Carga');")
                Exit Sub
            End If
            If txtFNCarga2.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Fecha de Nacimiento Segunda Carga');")
                Exit Sub
            End If
            If cmbParentescoCarga2.SelectedValue.Trim = "000" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Parentesco Segunda Carga');")
                Exit Sub
            End If

            If txtNombreCarga3.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre Tercera Carga');")
                Exit Sub
            End If
            If txtApPCarga3.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Paterno Tercera Carga');")
                Exit Sub
            End If
            If txtApMCarga3.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Apellido Materno Tercera Carga');")
                Exit Sub
            End If
            If txtFNCarga3.Text = "" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Fecha de Nacimiento Tercera Carga');")
                Exit Sub
            End If
            If cmbParentescoCarga3.SelectedValue.Trim = "000" Then
                Anthem.Manager.AddScriptForClientSideEval("alert('Falta Parentesco Tercera Carga');")
                Exit Sub
            End If

            If txtNombreCarga4.Text <> "" Or txtApPCarga4.Text <> "" Or txtApMCarga4.Text <> "" Or txtFNCarga4.Text <> "" Or cmbParentescoCarga4.SelectedValue.Trim <> "000" Then
                CONTADOR = 4
                If txtNombreCarga4.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre de la Carga N° 4');")
                    Exit Sub
                End If
                If txtApPCarga4.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Apellido Paterno de la Carga N° 4');")
                    Exit Sub
                End If
                If txtApMCarga4.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Apellido Materno de la Carga N° 4');")
                    Exit Sub
                End If
                If txtFNCarga4.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Fecha de Nacimiento de la Carga N° 4');")
                    Exit Sub
                End If
                If cmbParentescoCarga4.SelectedValue.Trim = "000" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Parentesco de la Carga N° 4');")
                    Exit Sub
                End If
            End If


            If txtNombreCarga5.Text <> "" Or txtApPCarga5.Text <> "" Or txtApMCarga5.Text <> "" Or txtFNCarga5.Text <> "" Or cmbParentescoCarga5.SelectedValue.Trim <> "000" Then
                CONTADOR = 5
                If txtNombreCarga5.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre de la Carga N° 5');")
                    Exit Sub
                End If
                If txtApPCarga5.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Apellido Paterno de la Carga N° 5');")
                    Exit Sub
                End If
                If txtApMCarga5.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Apellido Materno de la Carga N° 5');")
                    Exit Sub
                End If
                If txtFNCarga5.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Fecha de Nacimiento de la Carga N° 5');")
                    Exit Sub
                End If
                If cmbParentescoCarga5.SelectedValue.Trim = "000" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Parentesco de la Carga N° 5');")
                    Exit Sub
                End If
            End If

            If txtNombreCarga6.Text <> "" Or txtApPCarga6.Text <> "" Or txtApMCarga6.Text <> "" Or txtFNCarga6.Text <> "" Or cmbParentescoCarga6.SelectedValue.Trim <> "000" Then
                CONTADOR = 6
                If txtNombreCarga6.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Falta Nombre de la Carga N° 6');")
                    Exit Sub
                End If
                If txtApPCarga6.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Apellido Paterno de la Carga N° 6');")
                    Exit Sub
                End If
                If txtApMCarga6.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Apellido Materno de la Carga N° 6');")
                    Exit Sub
                End If
                If txtFNCarga6.Text = "" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Fecha de Nacimiento de la Carga N° 6');")
                    Exit Sub
                End If
                If cmbParentescoCarga6.SelectedValue.Trim = "000" Then
                    Anthem.Manager.AddScriptForClientSideEval("alert('Faltan Parentesco de la Carga N° 6');")
                    Exit Sub
                End If
            End If
        End If

        Grabar_IngresoVenta()
        Grabar_Cargas()


        Dim szURL As String
        szURL = "frm_ValidacionIngresoDatos.aspx?IDSeguro=" & txtIDSeguro.Text & "&Carga=" & CONTADOR 'ViewState("Carga").ToString
        Response.Redirect(szURL)


    End Sub




   
End Class